home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvmtest / pvm_test_gui < prev    next >
Encoding:
Text File  |  1995-05-22  |  50.2 KB  |  1,278 lines
  1. #! /usr/local/X11R5/bin/wish -f
  2. #
  3. # This program is an interface to the PVM test suite. Written by Emmanual Jeannot
  4. # and Philip Mucci at the University of Tennessee in Knoxville. Help is available
  5. # through cs.utk.edu. Some of the fileselector code was originally written by
  6. # Mario Jorge Silva(msilva@cs.Berkeley.EDU). 
  7. # 
  8. # Philip Mucci (mucci@cs.utk.edu)
  9. # Emmanuel Jeannot (jeannot@cs.utk.edu) (ejeannot@ens.ens-lyon.fr)
  10. #
  11. #
  12. # Default font settings
  13. #
  14. option add *Listbox*font \
  15.     "-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1" startupFile
  16. option add *Entry*font \
  17.     "-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1" startupFile
  18. option add *Label*font \
  19.     "-*-helvetica-medium-r-normal-*-12-*-*-*-p-*-iso8859-1" startupFile
  20. option add *Scale*font \
  21.     "-*-helvetica-medium-r-normal-*-10-*-*-*-p-*-iso8859-1" startupFile
  22. option add *Text*font \
  23.     "6x13" startupFile
  24. #
  25. # Default global variable settings
  26. #
  27. set pvm_test_gui_pid [pid]
  28. set pvm_test_pid 0
  29. set pvm_root ""
  30. set pvm_arch ""
  31. set num_procs 5
  32. set siz_mesgs 100
  33. set num_mesgs 10
  34. set bw_start 100
  35. #set bw_end [expr $bw_start*32]
  36. #set bw_inc [expr $bw_end/64]
  37. set bw_end 1000
  38. set bw_inc 100
  39. set atime_bool 0
  40. set all_comb_bool 0
  41. set ttime_bool 0
  42. set pvm_hostfile ""
  43. set hostfile_buffer ""
  44. set onelabeltest ""
  45. set pvm_test_status ""
  46. set helpmsg "Help messages appear here."
  47.  
  48. #
  49. # Procedures
  50. #
  51.  
  52. proc KillTester { } {
  53.   global pvm_test_pid pvm_test_gui_pid
  54.  
  55.   catch {exec kill -30 $pvm_test_pid}
  56. }
  57.  
  58. proc IsProcessRunning { pid } {
  59.   update
  60.   set processes [string trim [exec ps]]
  61.   if {[regexp "$pid " $processes] == 0} {
  62.     return 0
  63.   } else {
  64.     return 1 }
  65. }
  66.  
  67. proc RunTester { } {
  68.   global pvm_test_gui_pid pvm_test_pid errorCode pvm_root pvm_arch pvm_test_status 
  69.  
  70.   exec rm -f /tmp/ptg.status.$pvm_test_gui_pid
  71.   if { $errorCode != "NONE" } {
  72.     error "Could not remove /tmp/ptg.status.$pvm_test_gui_pid."
  73.     return }
  74.  
  75. # tkwait variable pvm_root
  76. #  exec $pvm_root/lib/pvm &
  77. #  after 4000 
  78.   set pvm_test_pid [exec ~/pvm3/bin/$pvm_arch/pvm_test /tmp/ptg.infile.$pvm_test_gui_pid > /tmp/ptg.status.$pvm_test_gui_pid 2> /tmp/ptg.status.$pvm_test_gui_pid &]
  79.  
  80.   destroy .generic
  81.   PutGeneric .generic
  82.   grab set .generic
  83.   pack .generic -side bottom -anchor sw -expand true -fill both
  84.   button .generic.abort -text ABORT -bd 2 -fg red -command { KillTester }
  85.   label .generic.status -textvariable pvm_test_status -relief sunken -bd 1 -bg white -fg black
  86.   pack .generic.status -side top -fill both -pady 2 -padx 2
  87.   pack .generic.abort -side bottom -fill both -pady 2 -padx 2
  88.  
  89.   set i 0
  90.   while { 1 } {
  91.     set pvm_test_status [exec tail -1 /tmp/ptg.status.$pvm_test_gui_pid]
  92.     update
  93.     if {[expr $i % 5] == 0} {
  94.       if {[expr ($i/5) % 2] == 0} {
  95.     .generic.status configure -bg black -fg white
  96.       } else {
  97.     .generic.status configure -bg white -fg black } }
  98.     if {[expr $i % 10] == 0} {
  99.       if { [IsProcessRunning $pvm_test_pid] == 0} {
  100.         destroy .generic.abort
  101.     break } }
  102.     set i [expr $i + 1]
  103.   }
  104.  
  105.   set pvm_test_status [exec tail -1 /tmp/ptg.status.$pvm_test_gui_pid]
  106.   update
  107.   exec rm -f /tmp/ptg.status.$pvm_test_gui_pid /tmp/ptg.infile.$pvm_test_gui_pid
  108.  
  109.   if {[file exists /tmp/ptg.rpt.$pvm_test_gui_pid] && [file size /tmp/ptg.rpt.$pvm_test_gui_pid]} {
  110.     button .generic.view -text "View/Save results" -bd 2 -command { PutResults } 
  111.   } else {
  112.     button .generic.view -text "View/Save results" -bd 2 -state disabled }
  113.   button .generic.done -text "Done" -bd 2 -command { DoneResultsForGood }
  114.   pack .generic.status -side top -fill both -pady 2 -padx 2
  115.   pack .generic.done .generic.view -side bottom -fill both -padx 2 -pady 2
  116. }
  117.  
  118. proc MakeSel { } {
  119.   global hostfile_buffer
  120.   frame .top.r3panel 
  121.   pack .top.r3panel -side top -expand true -fill both -padx 2 -pady 2 -anchor nw
  122.  
  123.   label .top.r3panel.actions -text "Actions"
  124.   button .top.r3panel.rsel -text "Run selection" -bd 3 -command { RunSel }
  125.   pack .top.r3panel.actions .top.r3panel.rsel  -side top -fill x -padx 3
  126.   bind .top.r3panel.rsel <Enter> { 
  127.     set helpmsg "Guess what this does?" 
  128.     tk_butEnter %W }
  129.  
  130.   label .top.r3panel.select -text "Test groups"
  131.   pack .top.r3panel.select -side top -fill both -padx 3
  132.   checkbutton .top.r3panel.alltests -text "All available tests" -anchor w -variable alltests
  133.   bind .top.r3panel.alltests <Enter> { 
  134.     set helpmsg "Perform all 91 tests. This might take quite a while!" 
  135.     tk_butEnter %W }
  136.   checkbutton .top.r3panel.allmsg -text "All messaging tests" -anchor w -variable allmsg 
  137.   bind .top.r3panel.allmsg <Enter> { 
  138.     set helpmsg "Perform the funneling, head-to-head and triangle tests, both with and without data." 
  139.     tk_butEnter %W }
  140.   checkbutton .top.r3panel.allrtin  -text "All routine tests" -anchor w -variable allrtin
  141.   bind .top.r3panel.allrtin <Enter> { 
  142.     set helpmsg "Perform tests on the host, group, buffer, task, broadcast and other functions." 
  143.     tk_butEnter %W }
  144.   checkbutton .top.r3panel.fdat -text "All funneling tests with data" -anchor w -variable fdat
  145.   bind .top.r3panel.fdat <Enter> { 
  146.     set helpmsg "Perform the test where one host gathers messages from many." 
  147.     tk_butEnter %W }
  148.   checkbutton .top.r3panel.fndat -text "All funneling tests with no data" -anchor w -variable fndat
  149.   bind .top.r3panel.fndat <Enter> { 
  150.     set helpmsg "Perform the test where one host gathers messages from many, but no actual data is sent." 
  151.     tk_butEnter %W }
  152.   checkbutton .top.r3panel.hdat -text "All head-head with data" -anchor w -variable hdat
  153.   bind .top.r3panel.hdat <Enter> { 
  154.     set helpmsg "Perform the bidirectional communication test." 
  155.     tk_butEnter %W }
  156.   checkbutton .top.r3panel.hndat -text "All head-head with no data" -anchor w -variable hndat
  157.   bind .top.r3panel.hndat <Enter> { 
  158.    set helpmsg "Perform the bidirectional communication test, but no actual data is sent." 
  159.     tk_butEnter %W }
  160.   checkbutton .top.r3panel.tdat -text "All triangle with data" -anchor w -variable tdat
  161.   bind .top.r3panel.tdat <Enter> { 
  162.     set helpmsg "Perform the test where one host sends to the next forming a loop." 
  163.     tk_butEnter %W }
  164.   checkbutton .top.r3panel.tndat -text "All triangle with no data" -anchor w -variable tndat
  165.   bind .top.r3panel.tndat <Enter> { 
  166.     set helpmsg "Perform the test where one host sends to the next forming a loop, but no actual data is sent." 
  167.     tk_butEnter %W }
  168.   checkbutton .top.r3panel.bw -text "Bandwidth and latency tests" -anchor w -variable bw
  169.   bind .top.r3panel.bw <Enter> { 
  170.     set helpmsg "Plot a graph of latency vs. message size between the first *two* hosts." 
  171.     tk_butEnter %W }
  172.  
  173.   button .top.r3panel.onetest -text "Select one test..." -bd 3 -command { OneTest }
  174.   bind .top.r3panel.onetest <Enter> { 
  175.     set helpmsg "Pick a singular test from the complete list." 
  176.     tk_butEnter %W }
  177.  
  178.   pack .top.r3panel.alltests .top.r3panel.allmsg .top.r3panel.allrtin .top.r3panel.fdat .top.r3panel.fndat \
  179.        .top.r3panel.hdat .top.r3panel.hndat .top.r3panel.tdat .top.r3panel.tndat .top.r3panel.bw \
  180.        .top.r3panel.onetest  -side top -fill both -expand true -padx 3 
  181.  
  182.   bind .top.r3panel.alltests <ButtonRelease-1> {
  183.        tk_butUp %W
  184.        if { $alltests != 0 } {
  185.      .top.r3panel.allmsg deselect
  186.      .top.r3panel.allrtin deselect
  187.          .top.r3panel.fdat deselect
  188.          .top.r3panel.fndat deselect
  189.          .top.r3panel.hdat deselect
  190.          .top.r3panel.hndat deselect
  191.          .top.r3panel.tdat deselect
  192.          .top.r3panel.tndat deselect
  193.          .top.r3panel.bw deselect
  194.      .top.r3panel.allmsg configure -state disabled
  195.      .top.r3panel.allrtin configure -state disabled
  196.          .top.r3panel.fdat configure -state disabled
  197.          .top.r3panel.fndat configure -state disabled
  198.          .top.r3panel.hdat configure -state disabled
  199.          .top.r3panel.hndat configure -state disabled
  200.          .top.r3panel.tdat configure -state disabled
  201.          .top.r3panel.tndat configure -state disabled
  202.          .top.r3panel.bw configure -state disabled 
  203.        } else {
  204.           .top.r3panel.allmsg configure -state normal
  205.      .top.r3panel.allrtin configure -state normal
  206.          .top.r3panel.fdat configure -state normal
  207.          .top.r3panel.fndat configure -state normal
  208.          .top.r3panel.hdat configure -state normal
  209.          .top.r3panel.hndat configure -state normal
  210.          .top.r3panel.tdat configure -state normal
  211.          .top.r3panel.tndat configure -state normal
  212.          .top.r3panel.bw configure -state normal } }
  213.    bind .top.r3panel.allmsg <ButtonRelease-1> {
  214.     tk_butUp %W
  215.     if { $allmsg != 0 } {
  216.          .top.r3panel.fdat deselect
  217.          .top.r3panel.fndat deselect
  218.          .top.r3panel.hdat deselect
  219.          .top.r3panel.hndat deselect
  220.          .top.r3panel.tdat deselect
  221.          .top.r3panel.tndat deselect
  222.          .top.r3panel.fdat configure -state disabled
  223.          .top.r3panel.fndat configure -state disabled
  224.          .top.r3panel.hdat configure -state disabled
  225.          .top.r3panel.hndat configure -state disabled
  226.          .top.r3panel.tdat configure -state disabled
  227.          .top.r3panel.tndat configure -state disabled
  228.        } else {
  229.          .top.r3panel.fdat configure -state normal
  230.          .top.r3panel.fndat configure -state normal
  231.          .top.r3panel.hdat configure -state normal
  232.          .top.r3panel.hndat configure -state normal
  233.          .top.r3panel.tdat configure -state normal
  234.          .top.r3panel.tndat configure -state normal } }
  235.    bind .top.r3panel.allrtin <ButtonRelease-1> {
  236.         tk_butUp %W
  237.     if { $allrtin != 0 } {
  238.       .top.r3panel.bw deselect 
  239.       .top.r3panel.bw configure -state disabled 
  240.         } else {
  241.       .top.r3panel.bw configure -state normal } }
  242. }
  243.  
  244. proc RunSel { } {
  245. global pvm_hostfile pvm_test_gui_pid
  246.  
  247.   StoreHostFileInBuffer
  248.   if {[HasATestSelected]} {
  249.     if {[CheckHostFileBuffer]} {
  250.       MakeInFile /tmp/ptg.infile.$pvm_test_gui_pid /tmp/ptg.rpt.$pvm_test_gui_pid
  251.       RunTester
  252.     } else {
  253.       error "You must have a valid PVM hostfile to run the tests." }
  254.   } 
  255. }
  256.  
  257. proc OneTest { } {
  258.   global hostfile_buffer onelabeltest
  259.  
  260.   set onelabeltest ""
  261.   .top.r3panel.alltests deselect
  262.   .top.r3panel.allmsg deselect
  263.   .top.r3panel.allrtin deselect
  264.   .top.r3panel.fdat deselect
  265.   .top.r3panel.fndat deselect
  266.   .top.r3panel.hdat deselect
  267.   .top.r3panel.hndat deselect
  268.   .top.r3panel.tdat deselect
  269.   .top.r3panel.tndat deselect
  270.   .top.r3panel.bw deselect
  271.   .top.r3panel.onetest configure -state disabled
  272.   .top.r3panel.alltests configure -state disabled
  273.   .top.r3panel.allmsg configure -state disabled
  274.   .top.r3panel.allrtin configure -state disabled
  275.   .top.r3panel.fdat configure -state disabled
  276.   .top.r3panel.fndat configure -state disabled
  277.   .top.r3panel.hdat configure -state disabled
  278.   .top.r3panel.hndat configure -state disabled
  279.   .top.r3panel.tdat configure -state disabled
  280.   .top.r3panel.tndat configure -state disabled
  281.   .top.r3panel.bw configure -state disabled
  282.   .top.menu_bar.file configure -state disabled
  283.   .top.menu_bar.output configure -state disabled
  284.  
  285.   StoreHostFileInBuffer
  286.   destroy .generic
  287.   PutGeneric .generic
  288.   bind .generic <Enter> { 
  289.     set helpmsg "Pick a singular test from the complete list." }
  290.  
  291.   frame .generic.file -bd 3 -relief ridge 
  292.   frame .generic.bframe -bd 3 -relief ridge 
  293.   frame .generic.file.sframe -relief ridge
  294.   scrollbar .generic.file.sframe.r3panelscroll -command ".generic.file.sframe.r3paneltests yview"
  295.   listbox .generic.file.sframe.r3paneltests -font 7x14 -relief sunken -yscrollcommand ".generic.file.sframe.r3panelscroll set"
  296.   button .generic.bframe.cancel -text cancel -relief raised -padx 10 -command {
  297.     .top.r3panel.onetest configure -state normal
  298.     .top.r3panel.alltests configure -state normal
  299.     .top.r3panel.allmsg configure -state normal
  300.     .top.r3panel.allrtin configure -state normal
  301.     .top.r3panel.fdat configure -state normal
  302.     .top.r3panel.fndat configure -state normal
  303.     .top.r3panel.hdat configure -state normal
  304.     .top.r3panel.hndat configure -state normal
  305.     .top.r3panel.tdat configure -state normal
  306.     .top.r3panel.tndat configure -state normal
  307.     .top.r3panel.bw configure -state normal
  308.     .top.menu_bar.file configure -state normal
  309.     .top.menu_bar.output configure -state normal
  310.     PutText
  311.     .generic.frame.tframe.text insert end $hostfile_buffer
  312.     set onelabeltest "" }
  313.     
  314.   .generic.file.sframe.r3paneltests insert end "test001: Pvm_mstat() corect"
  315.   .generic.file.sframe.r3paneltests insert end "test002: pvm_mstat() incorect"
  316.   .generic.file.sframe.r3paneltests insert end "test003: pvm_addhosts() correct"                                        
  317.   .generic.file.sframe.r3paneltests insert end "test004: pvm_delhosts() incorrect"
  318.   .generic.file.sframe.r3paneltests insert end "test005: pvm_delhosts() correct"
  319.   .generic.file.sframe.r3paneltests insert end "test006: pvm_delhosts() incorrect"
  320.   .generic.file.sframe.r3paneltests insert end "test007: Race pvm_addhosts()-pvm_config()"
  321.   .generic.file.sframe.r3paneltests insert end "test008: Race pvm_delhosts()-pvm_config()"
  322.   .generic.file.sframe.r3paneltests insert end "test009: pvm_hostsync()"
  323.   .generic.file.sframe.r3paneltests insert end "test010: pvm_pstat() correct"
  324.   .generic.file.sframe.r3paneltests insert end "test011: pvm_pstat() incorrect"
  325.   .generic.file.sframe.r3paneltests insert end "test012: pvm_spawn() sequential"
  326.   .generic.file.sframe.r3paneltests insert end "test013: pvm_spawn() simultaneous"
  327.   .generic.file.sframe.r3paneltests insert end "test014: pvm_kill() correct"
  328.   .generic.file.sframe.r3paneltests insert end "test015: pvm_kill() incorrect"
  329.   .generic.file.sframe.r3paneltests insert end "test016: pvm_tidtohost()"
  330.   .generic.file.sframe.r3paneltests insert end "test017: pvm_parent()"
  331.   .generic.file.sframe.r3paneltests insert end "test018: pvm_sendsig()"
  332.   .generic.file.sframe.r3paneltests insert end "test019: pvm_task()"
  333.   .generic.file.sframe.r3paneltests insert end "test020: pvm_exit()"
  334.   .generic.file.sframe.r3paneltests insert end "test021: Are several group server started ?"
  335.   .generic.file.sframe.r3paneltests insert end "test022: pvm_joingroup() incorrect"
  336.   .generic.file.sframe.r3paneltests insert end "test023: pvm_lvgroup() incorrect"
  337.   .generic.file.sframe.r3paneltests insert end "test024: pvm_joingroup(),pvm_lvgroup(),pvm_gsize()"
  338.   .generic.file.sframe.r3paneltests insert end "test025: Group completion"
  339.   .generic.file.sframe.r3paneltests insert end "test026: pvm_getinst(),pvm_gettid()"
  340.   .generic.file.sframe.r3paneltests insert end "test027: pvm_initsend(),pvm_getsbuf(),pvm_freebuf()"
  341.   .generic.file.sframe.r3paneltests insert end "test028: pvm_pkxxx(),pvm_upkxxx()"
  342.   .generic.file.sframe.r3paneltests insert end "test029: pvm_getrbuf()"
  343.   .generic.file.sframe.r3paneltests insert end "test030: pvm_bufinfo()"
  344.   .generic.file.sframe.r3paneltests insert end "test031: pvm_mytid()"
  345.   .generic.file.sframe.r3paneltests insert end "test032: pvm_mkbuf()"
  346.   .generic.file.sframe.r3paneltests insert end "test033: pvm_(p)send()-pvm_(p)recv() coherency"
  347.   .generic.file.sframe.r3paneltests insert end "test034: pvm_setsbuf()"
  348.   .generic.file.sframe.r3paneltests insert end "test035: pvm_setrbuf()"
  349.   .generic.file.sframe.r3paneltests insert end "test036: pvm_setxbuf() incorrect"
  350.   .generic.file.sframe.r3paneltests insert end "test037: pvm_bcast()"
  351.   .generic.file.sframe.r3paneltests insert end "test038: pvm_barrier()"
  352.   .generic.file.sframe.r3paneltests insert end "test039: pvm_reduce()"
  353.   .generic.file.sframe.r3paneltests insert end "test040: pvm_gather()"
  354.   .generic.file.sframe.r3paneltests insert end "test041: pvm_scatter()"
  355.   .generic.file.sframe.r3paneltests insert end "test042: pvm_mcast()"
  356.   .generic.file.sframe.r3paneltests insert end "test043: pvm_trecv()"
  357.   .generic.file.sframe.r3paneltests insert end "test044: pvm_nrecv()"
  358.   .generic.file.sframe.r3paneltests insert end "test045: Latency-Bandwidth pvm_send()-pvm_recv()"
  359.   .generic.file.sframe.r3paneltests insert end "test046: Latency-Bandwidth pvm_psend()-pvm_precv()"
  360.   .generic.file.sframe.r3paneltests insert end "test047: pvm_notify()"
  361.   .generic.file.sframe.r3paneltests insert end "test048: head-head, PvmDataDefault, daemon routing, send, empty"
  362.   .generic.file.sframe.r3paneltests insert end "test049: head-head, PvmDataRaw, daemon routing, send, empty"
  363.   .generic.file.sframe.r3paneltests insert end "test050: head-head, PvmDataInPlace, daemon routing, send, empty"
  364.   .generic.file.sframe.r3paneltests insert end "test051: head-head, PvmDataDefault, direct routing, send, empty"
  365.   .generic.file.sframe.r3paneltests insert end "test052: head-head, PvmDataRaw, direct routing, send, empty"
  366.   .generic.file.sframe.r3paneltests insert end "test053: head-head, PvmDataInPlace, direct routing, send, empty"
  367.   .generic.file.sframe.r3paneltests insert end "test054: head-head, -, daemon routing, psend, empty"
  368.   .generic.file.sframe.r3paneltests insert end "test055: head-head, -, direct routing, psend, empty"
  369.   .generic.file.sframe.r3paneltests insert end "test056: head-head, PvmDataDefault, daemon routing, send, data"
  370.   .generic.file.sframe.r3paneltests insert end "test057: head-head, PvmDataRaw, daemon routing, send, data"
  371.   .generic.file.sframe.r3paneltests insert end "test058: head-head, PvmDataInPlace, daemon routing, send, data"
  372.   .generic.file.sframe.r3paneltests insert end "test059: head-head, PvmDataDefault, direct routing, send, data"
  373.   .generic.file.sframe.r3paneltests insert end "test060: head-head, PvmDataRaw, direct routing, send, data"
  374.   .generic.file.sframe.r3paneltests insert end "test061: head-head, PvmDataInPLace, direct routing, send, data"
  375.   .generic.file.sframe.r3paneltests insert end "test062: head-head, -, daemon routing, psend, data"
  376.   .generic.file.sframe.r3paneltests insert end "test063: head-head, -, direct routing, psend, data"
  377.   .generic.file.sframe.r3paneltests insert end "test064: triangle, PvmDataDefault, daemon routing, send, empty"
  378.   .generic.file.sframe.r3paneltests insert end "test065: triangle, PvmDataRaw, daemon routing, send, empty"
  379.   .generic.file.sframe.r3paneltests insert end "test066: triangle, PvmDataInPlace, daemon routing, send, empty"
  380.   .generic.file.sframe.r3paneltests insert end "test067: triangle, PvmDataDefault, direct routing, send, empty"
  381.   .generic.file.sframe.r3paneltests insert end "test068: triangle, PvmDataRaw, direct routing, send, empty"
  382.   .generic.file.sframe.r3paneltests insert end "test069: triangle, PvmDataInPlace, direct routing, send, empty"
  383.   .generic.file.sframe.r3paneltests insert end "test070: triangle, -, daemon routing, psend, empty"
  384.   .generic.file.sframe.r3paneltests insert end "test071: triangle, -, direct routing, psend, empty"
  385.   .generic.file.sframe.r3paneltests insert end "test072: triangle, PvmDataDefault, daemon routing, send, data"
  386.   .generic.file.sframe.r3paneltests insert end "test073: triangle, PvmDataRaw, daemon routing, send, data"
  387.   .generic.file.sframe.r3paneltests insert end "test074: triangle, PvmDataInPlace, daemon routing, send, data"
  388.   .generic.file.sframe.r3paneltests insert end "test075: triangle, PvmDataDefault, direct routing, send, data"
  389.   .generic.file.sframe.r3paneltests insert end "test076: triangle, PvmDataRaw, direct routing, send, data"
  390.   .generic.file.sframe.r3paneltests insert end "test077: triangle, PvmDataInPLace, direct routing, send, data"
  391.   .generic.file.sframe.r3paneltests insert end "test078: triangle, -, daemon routing, psend, data"
  392.   .generic.file.sframe.r3paneltests insert end "test079: triangle, -, direct routing, psend, data"
  393.   .generic.file.sframe.r3paneltests insert end "test080: funneling, PvmDataDefault, daemon routing, send, empty"
  394.   .generic.file.sframe.r3paneltests insert end "test081: funneling, PvmDataRaw, daemon routing, send, empty"
  395.   .generic.file.sframe.r3paneltests insert end "test082: funneling, PvmDataInPlace, daemon routing, send, empty"
  396.   .generic.file.sframe.r3paneltests insert end "test083: funneling, PvmDataDefault, direct routing, send, empty"
  397.   .generic.file.sframe.r3paneltests insert end "test084: funneling, PvmDataRaw, direct routing, send, empty"
  398.   .generic.file.sframe.r3paneltests insert end "test085: funneling, PvmDataInPlace, direct routing, send, empty"
  399.   .generic.file.sframe.r3paneltests insert end "test086: funneling, PvmDataDefault, daemon routing, mcast, empty"
  400.   .generic.file.sframe.r3paneltests insert end "test087: funneling, PvmDataRaw, daemon routing, mcast, empty"
  401.   .generic.file.sframe.r3paneltests insert end "test088: funneling, PvmDataInPlace, daemon routing, mcast, empty"
  402.   .generic.file.sframe.r3paneltests insert end "test089: funneling, PvmDataDefault, direct routing, mcast, empty"
  403.   .generic.file.sframe.r3paneltests insert end "test090: funneling, PvmDataRaw, direct routing, mcast, empty"
  404.   .generic.file.sframe.r3paneltests insert end "test091: funneling, PvmDataInPlace, direct routing, mcast, empty"
  405.   .generic.file.sframe.r3paneltests insert end "test092: funneling, -, daemon routing, psend, empty"
  406.   .generic.file.sframe.r3paneltests insert end "test093: funneling, -, direct routing, psend, empty"
  407.   .generic.file.sframe.r3paneltests insert end "test094: funneling, PvmDataDefault, daemon routing, send, data"
  408.   .generic.file.sframe.r3paneltests insert end "test095: funneling, PvmDataRaw, daemon routing, send, data"
  409.   .generic.file.sframe.r3paneltests insert end "test096: funneling, PvmDataInPlace, daemon routing, send, data"
  410.   .generic.file.sframe.r3paneltests insert end "test097: funneling, PvmDataDefault, direct routing, send, data"
  411.   .generic.file.sframe.r3paneltests insert end "test098: funneling, PvmDataRaw, direct routing, send, data"
  412.   .generic.file.sframe.r3paneltests insert end "test099: funneling, PvmDataInPlace, direct routing, send, data"
  413.   .generic.file.sframe.r3paneltests insert end "test100: funneling, PvmDataDefault, daemon routing, mcast, data"
  414.   .generic.file.sframe.r3paneltests insert end "test101: funneling, PvmDataRaw, daemon routing, mcast, data"
  415.   .generic.file.sframe.r3paneltests insert end "test102: funneling, PvmDataInPlace, daemon routing, mcast, data"
  416.   .generic.file.sframe.r3paneltests insert end "test103: funneling, PvmDataDefault, direct routing, mcast, data"
  417.   .generic.file.sframe.r3paneltests insert end "test104: funneling, PvmDataRaw, direct routing, mcast, data"
  418.   .generic.file.sframe.r3paneltests insert end "test105: funneling, PvmDataInPlace, direct routing, mcast, data"
  419.   .generic.file.sframe.r3paneltests insert end "test106: funneling, -, daemon routing, psend, data"
  420.   .generic.file.sframe.r3paneltests insert end "test107: funneling, -, direct routing, psend, data"
  421.  
  422.   pack .generic.file -padx 5 -pady 5 -side left -anchor nw -expand true -fill both 
  423.   pack .generic.bframe -padx 5 -pady 5 -side right -fill x 
  424.   pack .generic.file.sframe -side top -expand true -fill both
  425.   pack .generic.file.sframe.r3panelscroll -side right -fill y
  426.   pack .generic.file.sframe.r3paneltests -side left -fill both -expand true
  427.   pack .generic.bframe.cancel -fill x -ipady 10
  428.  
  429.   tk_listboxSingleSelect .generic.file.sframe.r3paneltests
  430.   bind .generic.file.sframe.r3paneltests  <Button-1> {
  431.     %W select from [%W nearest %y]
  432.     set onelabeltest [string range [%W get [%W nearest %y]] 0 6] }
  433. }
  434.  
  435. proc fileselect.ok.cmd {w cmd} {
  436.     global fileselect
  437.  
  438.     set selected [$fileselect(entry) get]
  439.     set trimmed [string trim $selected]
  440.  
  441.     if {[string length $trimmed] == 0} {
  442.         return }
  443.  
  444.     if {[file isdirectory $trimmed] != 0} {
  445.         # clean the text entry and prepare the list
  446.     $fileselect(entry) delete 0 end
  447.     $fileselect(list) delete 0 end
  448.     cd $trimmed
  449.     set dir [pwd]
  450.     $fileselect(dirlabel) configure -text $dir
  451.     foreach i [exec /bin/ls -a $dir] {
  452.       if {[file isdirectory $i]} {
  453.         $fileselect(list) insert end $i/
  454.       } else {  
  455.         $fileselect(list) insert end $i }
  456.     }
  457.     return }
  458.  
  459.     set path [pwd]
  460.     $cmd $trimmed $path
  461. }
  462.  
  463. proc fileselect.cancel.cmd {w {cmd ""}} {
  464.     if {$cmd != ""} {
  465.       $cmd 
  466.     } else {
  467.       destroy $w
  468.       PutGeneric .generic }
  469. }
  470.  
  471. proc file_window {w cmd cancel} {
  472.     destroy $w
  473.     PutGeneric $w
  474.     real_file_window "Filename:" $w $cmd $cancel }
  475.  
  476. proc real_file_window {heading w cmd cancel} {
  477.     label $w.dirlabel -anchor sw -relief ridge -bd 3 -text [pwd] 
  478.     pack $w.dirlabel -side bottom -anchor sw -fill x -padx 5 -pady 5 
  479.  
  480.     frame $w.file -bd 3 -relief ridge 
  481.     pack $w.file -padx 5 -pady 5 -side left -anchor nw -expand true -fill both 
  482.  
  483.     frame $w.bframe -bd 3 -relief ridge 
  484.     pack $w.bframe -padx 5 -pady 5 -side right -fill x 
  485.  
  486.     frame $w.file.eframe -relief ridge
  487.     pack $w.file.eframe -side top -fill both -anchor nw 
  488.  
  489.     frame $w.file.sframe -relief ridge
  490.     pack $w.file.sframe -side top -expand true -fill both
  491.  
  492.     label $w.file.eframe.label1 -text "$heading"
  493.     entry $w.file.eframe.entry -relief sunken
  494.     pack $w.file.eframe.label1 $w.file.eframe.entry -side top -fill x
  495.  
  496.     scrollbar $w.file.sframe.yscroll -relief sunken -command "$w.file.sframe.list yview"
  497.     pack $w.file.sframe.yscroll -side right -fill y
  498.  
  499.     listbox $w.file.sframe.list -relief sunken \
  500.     -yscroll "$w.file.sframe.yscroll set" 
  501.     pack $w.file.sframe.list -side left -expand true -fill both
  502.  
  503.     button $w.bframe.ok -text OK -bd 5 -relief raised -padx 10 \
  504.         -command "fileselect.ok.cmd $w $cmd"
  505.     button $w.bframe.cancel -text cancel -relief raised -padx 10 \
  506.         -command "fileselect.cancel.cmd $w $cancel"
  507.     pack $w.bframe.ok $w.bframe.cancel -fill x -ipady 10
  508.  
  509.     # path independent names for the widgets
  510.     global fileselect
  511.  
  512.     set fileselect(entry) $w.file.eframe.entry
  513.     set fileselect(list) $w.file.sframe.list
  514.     set fileselect(scroll) $w.file.sframe.scroll
  515.     set fileselect(ok) $w.bframe.ok
  516.     set fileselect(cancel) $w.bframe.cancel
  517.     set fileselect(dirlabel) $w.dirlabel
  518.  
  519.     # Fill the listbox with a list of the files in the directory (run
  520.     # the "/bin/ls" command to get that information).
  521.  
  522.     foreach i [exec /bin/ls -a [pwd]] {
  523.       if {[file isdirectory $i]} {
  524.     $w.file.sframe.list insert end $i/
  525.       } else {  
  526.     $w.file.sframe.list insert end $i }
  527.     }
  528.  
  529.     # Set up bindings for the window
  530.     bind $w <Return> {eval $fileselect(ok) invoke}
  531.     bind $w <Control-c> {eval $fileselect(cancel) invoke}
  532.  
  533.     # Set up bindings for the entry field.
  534.     bind $fileselect(entry) <Return> {eval $fileselect(ok) invoke}
  535.     bind $fileselect(entry) <Control-c> {eval $fileselect(cancel) invoke}
  536.  
  537.     tk_listboxSingleSelect $fileselect(list)
  538.  
  539.     bind $fileselect(list) <Button-1> {
  540.         # puts stderr "button 1 release"
  541.         %W select from [%W nearest %y]
  542.     $fileselect(entry) delete 0 end
  543.     $fileselect(entry) insert 0 [%W get [%W nearest %y]]
  544.     }
  545.  
  546.     bind $fileselect(list) <Key> {
  547.         %W select from [%W nearest %y]
  548.         $fileselect(entry) delete 0 end
  549.     $fileselect(entry) insert 0 [%W get [%W nearest %y]]
  550.     }
  551.  
  552.     bind $fileselect(list) <Double-ButtonPress-1> {
  553.         # puts stderr "double button 1"
  554.         %W select from [%W nearest %y]
  555.     $fileselect(entry) delete 0 end
  556.     $fileselect(entry) insert 0 [%W get [%W nearest %y]]
  557.     $fileselect(ok) invoke
  558.     }
  559.  
  560.     bind $fileselect(list) <Return> {
  561.         %W select from [%W nearest %y]
  562.     $fileselect(entry) delete 0 end
  563.     $fileselect(entry) insert 0 [%W get [%W nearest %y]]
  564.     $fileselect(ok) invoke
  565.     }
  566.  
  567.     # set kbd focus to entry widget
  568.  
  569.     focus $fileselect(entry)
  570. }
  571.  
  572. proc PutGeneric { name } {
  573.   frame $name -relief raised -bd 2 
  574.   pack $name -side bottom -anchor sw -fill both
  575. }
  576.  
  577. #
  578. # Post the results window.
  579. #
  580.  
  581. proc PutResults { } {
  582.   global pvm_test_gui_pid
  583.   toplevel .results
  584.   wm maxsize .results 1000 500
  585.   wm minsize .results 250 125
  586.  
  587.   grab set .results
  588.  
  589.   frame .results.top 
  590.   pack .results.top -side top -fill both -expand true
  591.  
  592.   frame .results.top.sframe 
  593.   pack .results.top.sframe -side left -fill both -expand true
  594.  
  595.   frame .results.top.bframe -relief ridge -bd 3 
  596.   pack .results.top.bframe -side right
  597.   button .results.top.bframe.save -text Save -command { SaveResults }
  598.   button .results.top.bframe.done -text Done -command { DoneResults }
  599. #  button .results.top.bframe.save_graph -text "Save Graph" -command { SaveGraph } -state disabled
  600. #  pack .results.top.bframe.save .results.top.bframe.done .results.top.bframe.save_graph -side top -fill both
  601.   pack .results.top.bframe.save .results.top.bframe.done -side top -fill both
  602.  
  603.   frame .results.top.sframe.right 
  604.   label .results.top.sframe.right.l2 -text "Summary"
  605.   pack .results.top.sframe.right -side right -expand true -fill both -padx 5
  606.   pack .results.top.sframe.right.l2 -side top
  607.  
  608.   listbox .results.top.sframe.right.outcome -bd 2 -relief sunken \
  609.     -yscrollcommand ".results.top.sframe.right.yscroll set" \
  610.     -xscrollcommand ".results.top.sframe.right.xscroll set" 
  611.   scrollbar .results.top.sframe.right.yscroll -command ".results.top.sframe.right.outcome yview" 
  612.   scrollbar .results.top.sframe.right.xscroll -orient horizontal -command ".results.top.sframe.right.outcome xview" 
  613.   pack .results.top.sframe.right.yscroll -side right -fill y 
  614.   pack .results.top.sframe.right.xscroll -side bottom -fill x 
  615.   pack .results.top.sframe.right.outcome -side right -expand true -fill both 
  616.   tk_listboxSingleSelect .results.top.sframe.right.outcome 
  617.  
  618.   frame .results.top.sframe.left 
  619.   label .results.top.sframe.left.l1 -text "Data (Click on a test to view)"
  620.   pack .results.top.sframe.left -side left -expand true -fill both
  621.   pack .results.top.sframe.left.l1 -side top
  622.  
  623.   text .results.top.sframe.left.info -bd 2 -relief sunken -yscrollcommand ".results.top.sframe.left.yscroll set" -wrap word
  624.   scrollbar .results.top.sframe.left.yscroll -command ".results.top.sframe.left.info yview" 
  625.   pack .results.top.sframe.left.info -side left -fill both
  626.   pack .results.top.sframe.left.yscroll -side left -fill y 
  627.  
  628.   .results.top.sframe.right.outcome insert end "Report header"
  629.   set fd [open /tmp/ptg.rpt.$pvm_test_gui_pid r]
  630.   while {[gets $fd line] >= 0} {
  631.     if {[string match test#*:* $line] == 1} {
  632.       set name [string trim [string range $line 0 [expr [string first ":" $line]-1]]]
  633.       gets $fd line
  634.       while {[string match test#*:* $line] != 1} {
  635.         gets $fd line}
  636.       set result [string trim [string range $line [expr [string last ":" $line]+2] end]]
  637.       if { $name == "test#45" } {
  638.         set name "send :latency-bandwidth 1" }
  639.        if { $name == "test#46" } {
  640.         set name "psend :latency-bandwidth 2" }
  641.       .results.top.sframe.right.outcome insert end "$name: $result"
  642.     } elseif {[lrange $line 2 3] == "time totals"} {
  643.       .results.top.sframe.right.outcome insert end "[lrange $line 0 0] timings"
  644.     } } 
  645.   close $fd
  646.  
  647.   bind .results.top.sframe.right.outcome <Button-1> {
  648.     set cmp [string range [.results.top.sframe.right.outcome get [.results.top.sframe.right.outcome nearest %y]] 0 7]
  649.     if { $cmp == "send :la" } { 
  650.       FindAndInsertInformation "test#45:"
  651.     } elseif { $cmp == "psend :l"} {
  652.     FindAndInsertInformation "test#46:"
  653.     } elseif { $cmp == "Report h" } {
  654.       FindAndInsertInformation "--------"
  655.     } else {
  656.       FindAndInsertInformation $cmp } }
  657. }
  658.  
  659. proc InsertBlockOfInformation { fd } {
  660.   while {[gets $fd line] >= 0} {
  661.     set begline [string range $line 0 3]
  662.     if {$begline=="test"||$begline=="funn"||$begline=="head"||$begline=="tria"} {
  663.       return 
  664.     } else {
  665.       .results.top.sframe.left.info insert end "$line\n" }
  666.   }
  667. }
  668.  
  669. proc FindAndInsertInformation { first_eight_chars } {
  670. global pvm_test_gui_pid
  671.  
  672.   set fd [open /tmp/ptg.rpt.$pvm_test_gui_pid r]
  673.   while {[gets $fd line] >= 0} {
  674.     if {[string match $first_eight_chars* $line] == 1} {
  675.       .results.top.sframe.left.info delete 1.0 end
  676.       .results.top.sframe.left.info insert end "$line\n"    
  677.       InsertBlockOfInformation $fd
  678.       close $fd
  679.       return 
  680.     } }
  681.   return 
  682. }
  683.  
  684. #
  685. # Finished dealing with the results window.
  686. #
  687.  
  688. proc DoneResults { } {
  689.   destroy .results
  690.   grab set .generic
  691. }
  692.  
  693. #
  694. # Finished dealing with the results for good.
  695. #
  696.  
  697. proc DoneResultsForGood { } {
  698.   global pvm_test_gui_pid pvm_test_pid
  699.   exec rm -f /tmp/ptg.rpt.$pvm_test_gui_pid /tmp/ptg.status.$pvm_test_gui_pid /tmp/ptg.hosts.$pvm_test_gui_pid 
  700.   OpenClickedCancel
  701. }
  702.  
  703. #
  704. # Save the report file generated by pvm_test.
  705. #
  706.  
  707. proc SaveResults { } {
  708.   .results.top.bframe.save configure -state disabled
  709.   frame .results.bottom 
  710.   pack .results.bottom -side bottom -expand true -fill both
  711.   frame .results.bottom.fframe 
  712.   pack .results.bottom.fframe -side bottom -expand true -fill both
  713.   grab .results.bottom.fframe
  714.   real_file_window "Filename for report:" .results.bottom.fframe SaveResultsOK SaveResultsCancel
  715. }
  716. proc SaveResultsOK { name path } {
  717.   global pvm_test_gui_pid
  718.   if {[string index [string trim $name] 0] == "/"} {
  719.     set outname "$name"
  720.   } else {
  721.     set outname "$path/$name"    
  722.   }
  723.   exec cp /tmp/ptg.rpt.$pvm_test_gui_pid $outname
  724.   destroy .results.bottom
  725.   .results.top.bframe.save configure -state normal
  726. }
  727. proc SaveResultsCancel { } {
  728.   destroy .results.bottom
  729.   .results.top.bframe.save configure -state normal }
  730.  
  731. #
  732. # Save the postscript file generated by GNUPLOT
  733. #
  734.  
  735. proc SaveGraph { } {
  736.   .results.top.bframe.save_graph configure -state disabled
  737.   frame .results.bottom2 
  738.   pack .results.bottom2 -side bottom -expand true -fill both
  739.   frame .results.bottom2.fframe 
  740.   pack .results.bottom2.fframe -side bottom -expand true -fill both
  741.   grab .results.bottom2.fframe
  742.   real_file_window "Filename for PS graph:" .results.bottom2.fframe SaveGraphOK SaveGraphCancel
  743. }
  744. proc SaveGraphOK { name path } {
  745.   global pvm_test_gui_pid
  746.   if {[string index [string trim $name] 0] == "/"} {
  747.     set outname "$name"
  748.   } else {
  749.     set outname "$path/$name"    
  750.   }
  751.   exec cp "/tmp/ptg.ps.$pvm_test_gui_pid" $outname
  752.   destroy .results.bottom2
  753.   .results.top.bframe.save_graph configure -state normal
  754. }
  755. proc SaveGraphCancel { } {
  756.   destroy .results.bottom2
  757.   .results.top.bframe.save_graph configure -state normal }
  758.  
  759. proc PutMenus { } {
  760.   frame .top.menu_bar -relief raised -bd 2
  761.   bind .top.menu_bar <Enter> { 
  762.     set helpmsg "These menus deal with the input to pvm_test and the PVM host file shown below." }
  763.  
  764.   menubutton .top.menu_bar.file -text "Hosts" -menu .top.menu_bar.file.e
  765.   menu .top.menu_bar.file.e
  766.   .top.menu_bar.file.e add command -label "Open..." -command { Open } 
  767.   .top.menu_bar.file.e add command -label "Save" -command { Save  } 
  768.   .top.menu_bar.file.e add command -label "Save As..." -command { SaveAs } 
  769.   .top.menu_bar.file.e add command -label "Exit" -command { Exit }
  770.  
  771.   menubutton .top.menu_bar.output -text "Input" -menu .top.menu_bar.output.e
  772.   menu .top.menu_bar.output.e
  773.   .top.menu_bar.output.e add command -label "Save As..." -command { ConfigSaveAs } 
  774.  
  775.   pack .top.menu_bar -fill x -side top
  776.   pack .top.menu_bar.file .top.menu_bar.output -side left 
  777. }
  778.  
  779. proc PutHelp { } {
  780.   label .top.help -font "-*-helvetica-medium-r-normal-*-10-*-*-*-p-*-iso8859-1" -textvariable helpmsg -relief ridge -bd 2
  781.   bind .top.help <Enter> { 
  782.     set helpmsg "This panel displays helpful text about the object you're pointing to." }
  783.   pack .top.help -side top -fill both -expand true -padx 5 -pady 2
  784. }
  785.  
  786. proc PutSliders { } {
  787.   global num_procs siz_mesgs num_mesgs bw_start bw_end bw_inc
  788.  
  789.   frame .top.r1panel 
  790.   pack .top.r1panel -pady 2 -padx 2 -side right -anchor ne -expand true -fill both
  791.  
  792.   label .top.r1panel.l1 -text "Messaging tests parameters:" 
  793.   scale .top.r1panel.s1 -label "Number of processes" -from 1 -to 128 -length 150 -orient horizontal -command DoSliders
  794.   .top.r1panel.s1 set $num_procs
  795.   scale .top.r1panel.s2 -label "Units per message" -from 1 -to 4096 -length 150 -orient horizontal -command DoSliders
  796.   .top.r1panel.s2 set $siz_mesgs
  797.   scale .top.r1panel.s3 -label "Messages per test" -from 1 -to 256 -length 150 -orient horizontal -command DoSliders
  798.   .top.r1panel.s3 set $num_mesgs
  799.   pack .top.r1panel.l1 .top.r1panel.s1 .top.r1panel.s2 .top.r1panel.s3 -side top -fill both -expand true
  800.  
  801.   bind .top.r1panel.s1 <Enter> { 
  802.     set helpmsg "The number of slave processes spawned for the funneling tests." }
  803.   bind .top.r1panel.s2 <Enter> { 
  804.     set helpmsg "The number of units in each message, each unit has one member of each data type." }
  805.   bind .top.r1panel.s3 <Enter> { 
  806.     set helpmsg "The number of times to send the message per process." }
  807.   bind .top.r1panel.s1 <Button-2> {
  808.     set tmp [.top.r1panel.s1 get]
  809.     .top.r1panel.s1 set [expr $tmp-1] }
  810.   bind .top.r1panel.s2 <Button-2> {
  811.     set tmp [.top.r1panel.s2 get]
  812.     .top.r1panel.s2 set [expr $tmp-1] }
  813.   bind .top.r1panel.s3 <Button-2> {
  814.     set tmp [.top.r1panel.s3 get]
  815.     .top.r1panel.s3 set [expr $tmp-1] }
  816.   bind .top.r1panel.s1 <Button-3> {
  817.     set tmp [.top.r1panel.s1 get]
  818.     .top.r1panel.s1 set [expr $tmp+1] }
  819.   bind .top.r1panel.s2 <Button-3> {
  820.     set tmp [.top.r1panel.s2 get]
  821.     .top.r1panel.s2 set [expr $tmp+1] }
  822.   bind .top.r1panel.s3 <Button-3> {
  823.     set tmp [.top.r1panel.s3 get]
  824.     .top.r1panel.s3 set [expr $tmp+1] }
  825.  
  826.   label .top.r1panel.l2 -text "Bandwidth parameters: (bytes)" 
  827.   scale .top.r1panel.s4 -label "Start" -from 0 -to 10000 -length 150 -orient horizontal -command DoSliders
  828.   .top.r1panel.s4 set $bw_start
  829.   scale .top.r1panel.s5 -label "End" -from 1 -to 10000 -length 150 -orient horizontal -command DoSliders
  830.   .top.r1panel.s5 set $bw_end
  831.   scale .top.r1panel.s6 -label "Increment" -from 1 -to 1024 -length 150 -orient horizontal -command DoSliders
  832.   .top.r1panel.s6 set $bw_inc
  833.   pack .top.r1panel.s5 .top.r1panel.s6 .top.r1panel.s4 .top.r1panel.l2 -side bottom -fill both -expand true
  834.  
  835.   bind .top.r1panel.s4 <Enter> { 
  836.     set helpmsg "The starting size of the message to send in the bandwidth test." }
  837.   bind .top.r1panel.s5 <Enter> { 
  838.     set helpmsg "The Maximum size of message to send in the bandwidth test." }
  839.   bind .top.r1panel.s6 <Enter> { 
  840.     set helpmsg "The size increase the message by on each iteration." }
  841.   bind .top.r1panel.s4 <Button-2> {
  842.     set tmp [.top.r1panel.s4 get]
  843.     .top.r1panel.s4 set [expr $tmp-1] }
  844.   bind .top.r1panel.s5 <Button-2> {
  845.     set tmp [.top.r1panel.s5 get]
  846.     .top.r1panel.s5 set [expr $tmp-1] }
  847.   bind .top.r1panel.s6 <Button-2> {
  848.     set tmp [.top.r1panel.s6 get]
  849.     .top.r1panel.s6 set [expr $tmp-1] }
  850.   bind .top.r1panel.s4 <Button-3> {
  851.     set tmp [.top.r1panel.s4 get]
  852.     .top.r1panel.s4 set [expr $tmp+1] }
  853.   bind .top.r1panel.s5 <Button-3> {
  854.     set tmp [.top.r1panel.s5 get]
  855.     .top.r1panel.s5 set [expr $tmp+1] }
  856.   bind .top.r1panel.s6 <Button-3> {
  857.     set tmp [.top.r1panel.s6 get]
  858.     .top.r1panel.s6 set [expr $tmp+1] }
  859. }
  860.  
  861. proc PutCheckButtons { } {
  862.   global atime_bool ttime_bool all_comb_bool
  863.  
  864.   label .top.r1panel.l3 -text "General options:" 
  865.   label .top.r1panel.l4 -text "Timing options:"
  866.   checkbutton .top.r1panel.r2 -text "Average Time" -variable atime_bool -anchor w 
  867.   checkbutton .top.r1panel.r3 -text "Total Time" -variable ttime_bool -anchor w
  868.   checkbutton .top.r1panel.r1 -text "All Combinations" -variable all_comb_bool -anchor w 
  869.   pack .top.r1panel -pady 2 -padx 2 -side right -anchor ne -expand true -fill both
  870.   pack .top.r1panel.l3 -fill both -expand true -side top
  871.   pack .top.r1panel.r2 .top.r1panel.r3 -fill both -expand true -side bottom
  872.   pack .top.r1panel.l4 -fill both -expand true -side bottom
  873.   pack .top.r1panel.r1 -fill both -expand true -side bottom
  874.  
  875.   bind .top.r1panel.r1 <Enter> {
  876.     set helpmsg "Try all architectures combination ?"
  877.     tk_butEnter %W }
  878.   bind .top.r1panel.r2 <Enter> { 
  879.     set helpmsg "Display the amount of time each process took per message"
  880.     tk_butEnter %W }
  881.   bind .top.r1panel.r3 <Enter> { 
  882.     set helpmsg "Display the amount of time each process took to send all the messages"
  883.     tk_butEnter %W }
  884. }
  885.  
  886. proc PutActionButtons { } {
  887.   MakeSel
  888. }
  889.  
  890. proc AddHostToList { } {
  891.   global HostList
  892.   set host [.generic.frame.eframe.entry1 get]
  893.   set path [.generic.frame.eframe.entry2 get]
  894.   if {($host != "") && ($path != "")} {
  895.     if {[lsearch $HostList "$host*"] == -1} {
  896.       set entry "$host $path"
  897.       lappend HostList $entry
  898.       set HostList [lsort $HostList]
  899.       .generic.frame.names delete 0 end
  900.       foreach name $HostList {
  901.         .generic.frame.names insert end "$name" }
  902.     }
  903.   } 
  904. }
  905.  
  906. proc RemHostFromList { } {
  907.   global HostList
  908.   if {[selection own] != ""} {
  909.     foreach host [selection get] {
  910.       set index [lsearch $HostList $host]
  911.       set HostList [lreplace $HostList $index $index]
  912.       .modhost.frame.names delete $index $index } }
  913. }
  914.  
  915. proc DoSliders value {
  916.   global num_procs siz_mesgs num_mesgs bw_start bw_end bw_inc
  917.   set num_procs [.top.r1panel.s1 get]
  918.   set siz_mesgs [.top.r1panel.s2 get]
  919.   set num_mesgs [.top.r1panel.s3 get]
  920.   set bw_start [.top.r1panel.s4 get]
  921.   set bw_inc [.top.r1panel.s6 get]
  922.   set bw_end [.top.r1panel.s5 get]
  923. }
  924.  
  925. proc PutText { } {
  926.   destroy .generic
  927.   PutGeneric .generic
  928.  
  929.   frame .generic.frame -relief ridge 
  930.   pack .generic.frame -side left -anchor nw -expand true -fill both
  931.  
  932.   frame .generic.frame.tframe -relief ridge
  933.   pack .generic.frame.tframe -side left -fill both -anchor nw
  934.  
  935.   frame .generic.frame.sframe -relief ridge 
  936.   pack .generic.frame.sframe -side right -fill both 
  937.  
  938.   scrollbar .generic.frame.sframe.scrollbar -relief sunken -command ".generic.frame.tframe.text yview"
  939.   pack .generic.frame.sframe.scrollbar -side right -fill y
  940.  
  941.   text .generic.frame.tframe.text -height 10 -yscrollcommand ".generic.frame.sframe.scrollbar set"
  942.   pack .generic.frame.tframe.text -side left -fill both
  943.  
  944.   bind .generic.frame.tframe.text <Up> {
  945.     .generic.frame.tframe.text mark set "insert" "insert - 1 lines" 
  946.     .generic.frame.tframe.text yview -pickplace "insert" }
  947.   bind .generic.frame.tframe.text <Down> {
  948.     .generic.frame.tframe.text mark set "insert" "insert + 1 lines"
  949.     .generic.frame.tframe.text yview -pickplace "insert" }
  950.   bind .generic.frame.tframe.text <Shift-Up> {
  951.     .generic.frame.tframe.text mark set "insert" "0.0" 
  952.     .generic.frame.tframe.text yview -pickplace "insert" }
  953.   bind .generic.frame.tframe.text <Shift-Down> {
  954.     .generic.frame.tframe.text mark set "insert" "end"
  955.     .generic.frame.tframe.text yview -pickplace "insert" }
  956.   bind .generic.frame.tframe.text <Left> {
  957.     .generic.frame.tframe.text mark set "insert" "insert - 1 chars" }
  958.   bind .generic.frame.tframe.text <Right> {
  959.     .generic.frame.tframe.text mark set "insert" "insert + 1 chars" }
  960.   bind .generic.frame.tframe.text <Enter> {
  961.     set helpmsg "Click here and enter the names and PVM options of the hosts you wish to test, one host per line." }
  962. }
  963.  
  964. proc HasATestSelected { } {
  965.   global onelabeltest alltests allmsg allrtin fdat fndat hdat hndat tdat tndat bw
  966.   if { $onelabeltest != "" || $alltests || $allmsg || $allrtin || $fdat || $fndat || $hdat || $hndat || $tdat || $tndat || $bw } {
  967.     return 1 
  968.   } else {
  969.     return 0 }
  970. }
  971.  
  972. proc CheckHostFileBuffer { } {
  973.   global hostfile_buffer
  974.  
  975.   if {[string trim $hostfile_buffer] == ""} {
  976.     return 0 
  977.   } else {   
  978.     return 1 } 
  979. }
  980.  
  981. proc StoreHostFileInBuffer { } {
  982.   global hostfile_buffer
  983.  
  984.   if {[catch {.generic.frame.tframe.text get 1.0 end}] == 0} {
  985.     set hostfile_buffer [.generic.frame.tframe.text get 1.0 end] }
  986. }
  987.  
  988. proc ConfigSaveAs { } {
  989.  
  990.   StoreHostFileInBuffer
  991.   if {[HasATestSelected]} {
  992.     if {[CheckHostFileBuffer]} {
  993.       file_window .generic ConfigSaveAsClickedOk SaveAsClickedCancel
  994.     } else {
  995.       error "You must have a valid PVM hostfile to generate the pvm_test input file." }
  996.   } else {
  997.     error "You must select some tests to perform."
  998.   } 
  999. }
  1000.  
  1001. proc ConfigSaveAsClickedOk {name path} {
  1002.   if {$path != ""} {
  1003.     set config_file "$path/$name"
  1004.   } else {
  1005.     set config_file "$name" 
  1006.   }
  1007.   MakeInFile $config_file stdout
  1008.   SaveAsClickedCancel
  1009. }
  1010.  
  1011. proc Open { } {
  1012.   global hostfile_buffer
  1013.  
  1014.   set hostfile_buffer [.generic.frame.tframe.text get 1.0 end]
  1015.   file_window .generic OpenClickedOk OpenClickedCancel 
  1016. }
  1017.  
  1018. proc Save { } {
  1019.   global pvm_hostfile hostfile_buffer
  1020.  
  1021.   if {[catch {.generic.frame.tframe.text get 1.0 end} tmp] == 0} {
  1022.     set hostfile_buffer [.generic.frame.tframe.text get 1.0 end] }
  1023.  
  1024.   set fd [open $pvm_hostfile w+]
  1025.   if {$fd == -1} {
  1026.     error "Could not open $pvm_hostfile for reading & writing."
  1027.     SaveAsClickedCancel
  1028.     return }
  1029.   puts $fd $hostfile_buffer
  1030.   puts $fd "\n"
  1031.   close $fd
  1032. }
  1033.  
  1034. proc SaveAs { } {
  1035.   global hostfile_buffer
  1036.  
  1037.   set hostfile_buffer [.generic.frame.tframe.text get 1.0 end]
  1038.   file_window .generic SaveAsClickedOk SaveAsClickedCancel
  1039. }
  1040.  
  1041. proc Exit { } {
  1042.   exit
  1043. }
  1044.  
  1045. proc OpenClickedOK {name path} {
  1046.   global pvm_hostfile
  1047.   if {$path != ""} {
  1048.     set pvm_hostfile "$path/$name"
  1049.   } else {
  1050.     set pvm_hostfile "$name" 
  1051.   }
  1052.  
  1053.   set fd [open $pvm_hostfile a+]
  1054.   if {$fd == -1} {
  1055.     error "Could not open $pvm_hostfile for reading & writing."
  1056.     return }
  1057.   
  1058.   wm title . $pvm_hostfile
  1059.   PutText
  1060.  
  1061.   seek $fd 0 
  1062.   while {![eof $fd]} {
  1063.     .generic.frame.tframe.text insert end [read $fd 1000] }
  1064.   close $fd
  1065. }
  1066.  
  1067. proc SaveAsClickedOk {name path} {
  1068.   global pvm_hostfile hostfile_buffer
  1069.   if {$path != ""} {
  1070.     set pvm_hostfile "$path/$name"
  1071.   } else {
  1072.     set pvm_hostfile "$name" 
  1073.   }
  1074.   set fd [open $pvm_hostfile w+]
  1075.   if {$fd == -1} {
  1076.     error "Could not open $pvm_hostfile for reading and writing."
  1077.     SaveAsClickedCancel
  1078.     return
  1079.   }
  1080.   puts -nonewline $fd $hostfile_buffer
  1081.   close $fd
  1082.   OpenClickedOK $pvm_hostfile ""
  1083. }
  1084.  
  1085. proc OpenClickedCancel { } {
  1086.   global hostfile_buffer
  1087.   PutText
  1088.   .generic.frame.tframe.text insert end $hostfile_buffer
  1089.   .top.r3panel.onetest configure -state normal
  1090.   .top.r3panel.alltests configure -state normal
  1091.   .top.r3panel.allmsg configure -state normal
  1092.   .top.r3panel.allrtin configure -state normal
  1093.   .top.r3panel.fdat configure -state normal
  1094.   .top.r3panel.fndat configure -state normal
  1095.   .top.r3panel.hdat configure -state normal
  1096.   .top.r3panel.hndat configure -state normal
  1097.   .top.r3panel.tdat configure -state normal
  1098.   .top.r3panel.tndat configure -state normal
  1099.   .top.r3panel.bw configure -state normal
  1100.   .top.menu_bar.file configure -state normal
  1101.   .top.menu_bar.output configure -state normal
  1102. }
  1103.  
  1104. proc SaveAsClickedCancel { } {
  1105.   global hostfile_buffer
  1106.   PutText
  1107.   .generic.frame.tframe.text insert end $hostfile_buffer
  1108. }
  1109.  
  1110. proc MakeInFile { name output } {
  1111.   global errorCode hostfile_buffer all_comb_bool ttime_bool atime_bool atime_bool num_procs num_mesgs siz_mesgs bw_start bw_end bw_inc alltests allmsg allrtin fdat fndat hdat hndat tdat tndat bw onelabeltest
  1112.  
  1113.   exec rm -f $name
  1114.   if { $errorCode != "NONE" } {
  1115.     error "Could not remove $name."
  1116.     return 0 }
  1117.  
  1118.   set fd [open $name w]
  1119.   if { $fd == -1 } {
  1120.     error "Could not open $name for writing."
  1121.     return 0 }
  1122.  
  1123.   puts $fd "##########################################################################"
  1124.   puts $fd "#                   Input file of the pvm tester.                        #"
  1125.   puts $fd "#               To select tests put an 'x' between the two []              #"
  1126.   puts $fd "#                        each time its needed.                        #"
  1127.   puts $fd "#              For further informations read the tester manual.          #"
  1128.   puts $fd "##########################################################################"
  1129.     
  1130.   set rest $hostfile_buffer
  1131.   set cur_index 0
  1132.   set did_something 0
  1133.  
  1134.   while { 1 } {
  1135.     set cr_nl_index [string first "\n" $rest]
  1136.     if {$cr_nl_index == -1} { break }
  1137.     set line [string trim [string range $rest 0 [expr $cr_nl_index-1]]]
  1138.     set first_char [string index $line 0]
  1139.     if {($line != "") && ($first_char != "#")} {
  1140.       puts $fd "config :$line"
  1141.       set did_something 1}
  1142.     set rest [string range $rest [expr $cr_nl_index+1] end] }
  1143.  
  1144.   if {!$did_something} {
  1145.     error "There are no names in your host file."
  1146.     close $fd
  1147.     exec rm -f $name
  1148.     return 0 }
  1149.  
  1150.   if {$all_comb_bool != 0} {
  1151.     puts $fd "all_combinations :1" }
  1152.   if {$ttime_bool != 0 } {
  1153.     puts $fd "total_timing :1" }
  1154.   if {$atime_bool != 0 } {
  1155.     puts $fd "average_timing :1" }
  1156.  
  1157.   puts $fd "funneling_proc :$num_procs"
  1158.   puts $fd "num_messages :$num_mesgs"
  1159.   puts $fd "messages_length :$siz_mesgs"
  1160.  
  1161.   puts $fd "#########parameters for test 43#########"
  1162.   puts $fd "start_length :$bw_start"
  1163.   puts $fd "max_length :$bw_end"
  1164.   puts $fd "incr :$bw_inc"
  1165.   puts $fd "outfile :$output"
  1166.  
  1167.   if {$onelabeltest != ""} {
  1168.       puts $fd "\[x]$onelabeltest" }
  1169.   if {$alltests != 0} {
  1170.       puts $fd "all_tests :1"}
  1171.   if {$allmsg != 0} {
  1172.       puts $fd "all_messaging :1" }
  1173.   if {$allrtin != 0} {
  1174.       puts $fd "all_routine :1" }
  1175.   if {$fndat != 0} {
  1176.       puts $fd "all_funnel_nodata :1" }
  1177.   if {$fdat != 0} {
  1178.       puts $fd "all_funnel_data :1" }
  1179.   if {$hndat != 0} {
  1180.       puts $fd "all_head_nodata :1" }
  1181.   if {$hdat != 0} {
  1182.       puts $fd "all_head_data :1" }
  1183.   if {$tndat != 0} {
  1184.       puts $fd "all_triangle_nodata :1" }
  1185.   if {$tdat != 0} {
  1186.       puts $fd "all_triangle_data :1" }
  1187.   if {$bw != 0} {
  1188.       puts $fd "all_perf :1" }
  1189.   close $fd
  1190.   return 1
  1191. }
  1192.  
  1193.  
  1194.  
  1195.  
  1196. proc bw_graph {} {
  1197. global pvm_test_pid
  1198.  
  1199.   if {[file readable /tmp/pt.d1.$pvm_test_pid] == 0} { return }
  1200.   if {[file readable /tmp/pt.d2.$pvm_test_pid] == 0} { return }
  1201.  
  1202.   set fd [open "/tmp/ptg.gnuplot.$pvm_test_pid" w]
  1203.   if {$fd < 0} {
  1204.     error "Could not create /tmp/ptg.gnuplot.$pvm_test_pid (GNUPLOT script file)"
  1205.     return 0 }
  1206.  
  1207.   puts $fd "set xlabel \"Number of bytes\""
  1208.   puts $fd "set ylabel \"Time in seconds\""
  1209.   puts $fd "set tics out"
  1210.   puts $fd "set data style linespoints"
  1211.   puts $fd "set autoscale"
  1212.   puts $fd "set term postscript landscape \"Times-Roman\" 14"
  1213.   puts $fd "set output \"/tmp/ptg.ps.$pvm_test_pid\""
  1214.   puts $fd "set title \"Bandwidth measurement from [exec hostname] on [exec date]\""
  1215.   puts $fd "plot \"/tmp/pt.d1.$pvm_test_pid\" using 1:2 title \"Measurement\" with lines 1 ,\"/tmp/pt.d2.$pvm_test_pid\" using 1:2 title \"Linear regression\" with lines 2"
  1216.   puts $fd "set yrange\[0.0001:0.001]"
  1217.   close $fd
  1218.  
  1219.   set retval [catch {exec gnuplot "/tmp/ptg.gnuplot.$pvm_test_pid" }]
  1220.   if {$retval != 0} {
  1221.     error "Could not run gnuplot: data saved in /tmp/pt.d1.$pvm_test_pid & /tmp/pt.d2.$pvm_test_pid; gnuplot script saved in /tmp/ptg.gnuplot.$pvm_test_pid"
  1222.     return 0 }
  1223.  
  1224.   set retval [catch {exec gs "/tmp/ptg.ps.$pvm_test_pid" >/dev/null 2>/dev/null &}]
  1225.   if {$retval != 0} {
  1226.     error "Could not run ghostscript to preview to graph" }
  1227.   exec rm -f /tmp/ptg.gnuplot.$pvm_test_pid /tmp/pt.d1.$pvm_test_pid /tmp/pt.d2.$pvm_test_pid /tmp/pt.ps.$pvm_test_pid
  1228.   return 1
  1229. }
  1230.  
  1231. proc PutTop { } {
  1232. frame .top 
  1233. pack .top -fill x
  1234. bind .top <Destroy> {
  1235.   exec rm -f /tmp/pt*$pvm_test_gui_pid }
  1236. }
  1237.  
  1238. #
  1239. # main()
  1240. #
  1241.  
  1242. PutTop
  1243. PutMenus 
  1244. PutHelp
  1245. PutGeneric .generic
  1246. PutSliders
  1247. PutActionButtons
  1248. PutCheckButtons
  1249.  
  1250. if {[catch {set pvm_root $env(PVM_ROOT)}]} {
  1251.   tkerror "You must set the PVM_ROOT environment variable."
  1252.   exit 1 }
  1253. if {[file executable $pvm_root/lib/pvmgetarch] == 0} {
  1254.   if {[catch {set pvm_arch $env(PVM_ARCH)}]} {
  1255.     tkerror "You must set the PVM_ARCH environment variable."
  1256.     exit 1 } 
  1257.   } else {
  1258.   set pvm_arch [exec $pvm_root/lib/pvmgetarch] }
  1259. if {[file executable ~/pvm3/bin/$pvm_arch/pvm_test] == 0} {
  1260.   tkerror "Could not find pvm_test in ~/pvm3/bin/$pvm_arch."
  1261.   exit 1 }
  1262. if {$argc == 1} {
  1263.   OpenClickedOK [lindex $argv 0] "" 
  1264. } elseif {$argc > 1} {
  1265.   puts stderr "Usage: $argv0 \[filename]"
  1266.   exit 1
  1267. } else {
  1268.   set pvm_hostfile "/tmp/ptg.hosts.$pvm_test_gui_pid"
  1269.   set f [open $pvm_hostfile w]
  1270.   if { $f == -1 } {
  1271.     tkerror "Could not create $pvm_hostfile." 
  1272.     exit 1 }
  1273.   puts $f "# This is your PVM host configuration file."
  1274.   puts $f [exec hostname]
  1275.   close $f
  1276.   OpenClickedOK $pvm_hostfile "" 
  1277.   wm title . $pvm_hostfile }
  1278.